home *** CD-ROM | disk | FTP | other *** search
- ║CM:TABLE 1.3
- ║FP
-
-
- ╘ABLE 2. ═╙─ ╙─-1/╙─-2 ─ISK ─RIVE - ─╧╙ ╓2.3 ╥╧═ ═AP
-
- ═╙─ ╠┴┬┼╠ ─┼╙├╥╔╨╘╔╧╬ 1541 ╬╧╘┼
- -------------------------------------------------------------------------
- ├000 ─╧╙╓┼╥ ─╧╙ VERSION NUMBER ('2.3') -
- ├003 ╙┼╘╠┼─ ╘URN ON ACTIVITY ╠┼─ SPECIFIED BY DRIVE # ├100 ╥
- ├00╞ ┼╥╥╧╞╞ ├LEAR ERROR FLAGS ├123 ╥
- ├018 ╠┼─╧╞╞ ╘URN OFF ╠┼─ SPECIFIED BY DRIVE # - ╥╒
- ├036 ┼╥╥╧╬ ╙ET ERROR FLAGS ├12├ ╥
- ├055 ┼╥╥╠┼─ ╞LASH ERROR ╠┼─ SPECIFIED BY DRIVE # - ╬╒
- ├06─ - .BYT $┴┴ ┴┴.....THRU ├080 (UNUSED) -
- ├081 ╒╘╠╧─╥ ╒TILITY LOADER ENTRY POINT ┼7┴3 ═
- .BYT $60 (RETURN; ╒╘╠╧─╥ NOT USED IN ═╙─)
- ├082 ╨┴╥╙╪╤ ╨ARSE AND EXECUTE STRING IN COMMAND BUFFER ├146
- ├0├╞ ┼╬─├═─ ╙UCCESSFUL COMMAND TERMINATION ├194 ═
- ├0╞2 ├╠╥├┬ ├LEAR COMMAND BUFFER ├1┬─
- ├0╞─ ├═─┼╥╥ ├OMMAND LEVEL ERROR PROCESSING ├1├8
- ├106 ╙╔═╨╥╙ ╙IMPLE PARSER ├1─1
- ├11┴ ╨╥╙├╠╬ ╞IND POSITION OF COLON ├1┼5
- ├123 ╘┴╟├═─ ╘AG COMMAND STRING; SET UP COMMAND STRUCTURE ├1┼┼
- ├18┼ ╨┴╥╙┼ ╨ARSE STRING; LOOK FOR SPECIAL CHARACTERS ├268
- ├1├1 ╨╥30 ├HARACTER NOT FOUND ├29┼
- ├1─5 ├═─╙┼╘ ╔NITIALIZE COMMAND TABLE, POINTERS, ETC ├2┬3
- ├1╞─ ├═─╥╙╘ ├LEAR VARIABLE TABLES ├2─├
- ├232 ╧╬┼─╥╓ ╙ET UP 1ST DRIVE AND TABLE POINTERS ├312
- ├23├ ┴╠╠─╥╙ ╙ET UP ALL DRIVES FROM ╞2├╬╘ ├320
- ├25┴ ╙┼╘─╥╓ ╙ET DRIVE NUMBER ├33├
- ├286 ╙┼╘┴╬┘ ╙ET DRIVE FROM ANY CONFIGURATION ├368
- ├2┴9 ╘╧╟─╥╓ ╘OGGLE DRIVE NUMBER ├38╞
- ├2┬2 ╞╙1╙┼╘ ╙ET POINTER TO ONE FILE STREAM AND CHECK TYPE ├398
- ├2─3 ╘╙╘╧╓1 ╘EST CHARACTER IN ACCUMULATOR FOR '0' OR '1' ├3┬─
- ├2┼0 ╧╨╘╙├╚ ╧PTIMAL SEARCH FOR ╠╧╧╦╒╨ AND ╞╬─╞╔╠ ├3├┴
- -------------- ╙EARCH ╘ABLE ---------------------------------------------
- ├357 ╙├╚╘┬╠ .BYT $00 80 41 ├440
- .BYT $01 01 01 01
- .BYT $81 81 81 81
- .BYT $42 42 42 42
- ├366 ╠╧╧╦╒╨ ╠OOKUP FILES IN STREAM AND FILL TABLE WITH INFO ├44╞ ═
- ├398 ╞╞╥┼ ╞IND NEXT FILENAME MATCHING ANY FILE IN STREAM ├48┬ ═
- AND RETURN WITH ENTRY IN TABLE
- ├3┴2 ╞╞╙╘ ╞IND STARTING ENTRY IN THE DIRECTORY ├49─
- ├3┬9 ╞╬─╞╔╠ ├ONTINUE SCAN OF DIRECTORY ├4┬5
- ├3── ╠╦15 ╙WITCH DRIVES AND SEARCH ├462
- ├3┼┴ ├╧═╨┴╥ ├OMPARE ALL FILE NAMES IN STREAM TABLE WITH ├4─8
- EACH VALID ENTRY IN THE DIRECTORY
- ├49┼ ├═╨├╚╦ ├HECK TABLE FOR UNFOUND FILES ├589
- ├4┴7 ├├10 ─ECREMENT FILE COUNT ├594
- ├4┬┼ ╙╥├╚╙╘ ╙EARCH DIRECTORY; RETURNS WITH VALID ENTRY ├5┴├ ═
- ├516 ╙╥╥┼ ╥E-ENTER DIRECTORY SEARCH ├604
- ├529 ╙┼┴╥├╚ ├ONTINUE SEARCH ├617
- ├54╞ ┴╒╘╧1 ├HECK DRIVE FOR ACTIVE DISK; INIT IF NEEDED ├63─
- ├584 ╘╥╬┴═┼ ╘RANSFER FILE NAME FROM COMMAND TO BUFFER ├66┼
- ┴ STRING SIZE
- ╪ STARTING INDEX IN COMMAND BUFFER
- ┘ BUFFER NUMBER
- ├59┼ ╘╥├═┬╞ ╘RANSFER COMMAND BUFFER TO OTHER BUFFER ├688
- ├5┬├ ╞╬─╠═╘ ╞IND LIMIT OF STRING IN ├═─┬╒╞ POINTED BY ╪ ├6┴6
- ├5┼3 ╟┼╘╬┴═ ╟ET FILE ENTRY FROM DIRECTORY ├6├┼
- ├5╞3 ╟╬╙╒┬ ╟ET FILE ENTRY SUBROUTINE ├6─┼
- ├6├1 ┬╠╦╬┬ ┬LANK NAME BUFFER ├7┴├
- ├6├├ ╬┼╫─╔╥ ╬EW DIRECTORY IN LISTING ├7┬7 ═
- ├71┬ ═╙╟╞╥┼ ─ISPLAY '┬╠╧├╦╙ ╞╥┼┼' MESSAGE ├806
- ├72├ ╞╥┼═╙╟ .BYT ┬ ╠ ╧ ├ ╦ ╙ ╞ ╥ ┼ ┼ ├817
- ├738 ╙├╥╘├╚ ╙CRATCH FILES ├823
- ├793 ─┼╠╞╔╠ ─ELETE FILE BY LINKS ├87─ ═
- ├7┬┬ ─┼╠─╔╥ ─ELETE DIRECTORY ENTRY ├8┬6
- ├7├6 ─╒╨╠├╘ ─UPLICATE DISK ├8├1 ═
- ├7├╞ ─╒╨╠┬╥ ─UPLICATE (BRANCHES HERE IF ╙─-2) - ╬
- ├85┼ ╙╫╔─╥╓ ├HANGE TO OTHER DRIVE AND TURN MOTOR ON - ╬
- ├867 ─╒╨╘╥╦ ─UPLICATE CURRENT TRACK ON OTHER DRIVE - ╬
- ├872 ─╒╨╚╠╞ ─UPLICATE HALF A TRACK - ╬
- ├8╞2 ─╒╨╔╬╔ ╔NITIALIZE START SECTOR AND BUFFER - ╬
- ├8╞┼ ─╒╨╙┼╘ ╙ET UP PARAMETERS TO READ A SECTOR - ╬
- -------------- ┼XTRA ╥┴═ ╙TORAGE ┴DDRESSES (╙─-2)----------------------
- ├928 ╪╥┴═ $5000 $5118 $5230 - ╬
- $5046 $515┼ $5276
- $508├ $51┴4 $52┬├
- $50─2 $51┼┴ $5302
- ├940 ─╒╨╥╧ ╥EAD DATA FOR CURRENT BLOCK - ╬
- ├95─ ─╒╨┼╥╥ ┼RROR OCCURRED DURING DUPLICATION - ╬
- ├977 ─╒╨╚─╥ ┬UILD HEADER, READ IT AND WAIT FOR DATA - ╬
- ├982 ─╒╨╬╪╘ ╔NCREMENT CONTROLS FOR THE NEXT SECTOR - ╬
- ├992 ─╙╦├╧╨┘ ├OPY (├OPY BETWEEN DRIVES, IF ╙─-2) ├8╞0 ╥
- ├9╞7 ─╒╨╨╥═ ╙YNTAX CHECK FOR ─0=1, ─1=0, ├0=1, ├1=0 - ╬
- ├┴21 ├╨┘┴╠╠ ╙ET UP TO COPY FILES (EG ├0:*=1, . . . ETC) - ╬
- ├┴┴┬ ├╨┘╬┴═ ├OPY FILE NAME FROM DIRECTORY TO ├═─┬╒╞ - ╬
- ├┴┬┬ ╨╒╨╙╔ ╙ET UP SUBROUTINE ├932
- ├┴─┬ ├╧╨┘ ├OPY FILE(S) TO ONE FILE ├952
- ├┬34 ├┘ ├HECK IF FILE EXISTS ├9┴7
- ├┬84 ╧╨╔╥╞╠ ╧PEN INTERNAL READ FILE ├9╞┴
- ├┬┬┼ ╟╔┬┘╘ ╟ET A BYTE; SET UP INTERNALS ├┴35
- ├┬├7 ╟├┬┘╘ ╟ET A BYTE ├┴39
- ├┬── ├┘┼╪╘ ├OPY RELATIVE RECORDS ├┴53
- ├├14 ╥┼╬┴═┼ ╥ENAME FILE IN DIRECTORY ├┴88
- ├├5╞ ├╚╦╔╬ ├HECK IF FILE IS PRESENT ├┴├├ ═
- ├├78 ├╦╦10 ═ - ├OMMAND ├┴┼7
- ├├89 ═┼═ ═EMORY ACCESS COMMAND ├┴╞8
- ├├┴4 ═┼═┼╪ ═EMORY-┼XECUTE (═-┼) ├┬1─
- ├├┴7 ═┼═╥─ ═EMORY-╥EAD (═-╥) ├┬20
- ├├─1 ═┼═┼╥╥ ┬AD COMMAND ERROR ├┬4┬
- ├├─6 ═┼═╫╥╘ ═EMORY-╫RITE (═-╫) ├┬50 ═
- -------------- ┴DDRESS ├ONVERSION ┼QUIVALENTS ╘RAP ╘ABLE --------------
- ├├┼╞ ╘╥┴╨╘┬ .BYT $00 01 02 03 04 05 - ╬
- .BYT $0├ 18 0─ 19 0┼ 1┴ 0╞ 1┬
- .BYT $10 1├ 11 1─ 24 26 25 27
- ├─05 ╘╥┴╨ ═ODIFY TARGET ADDRESS FOR ═-╥, ═-╫ & ═-┼ - ╬
- ├─4┴ ╒╙┼╥ ╒SER COMMAND ├┬5├
- ├─51 ╒╙╥╔╬╘ ╒SER JUMP INITIALIZE ├┬63
- ├─5┴ ╒╙╔╧ ╒SER CODE ENTRANCE FOR EXECUTION ├┬6├
- ├─60 ╒╙╥┼╪├ ╒SER CODE EXECUTION FROM TABLE ├┬72 ═
- ├─7┴ ╧╨╬┬╠╦ ╧PEN DIRECT ACCESS BUFFER FROM OPEN BUFFER ├┬84 ═
- ├─├╞ ╧┬30 ╙ET READ AND WRITE FLAGS ├─╞1
- ├─╞9 ┬╠╧├╦ ┬LOCK COMMAND ├├1┬
- ├┼06 ┬╠╦10 ┬AD COMMAND ERROR ├├26
- ├┼09 ┬╠╦30 ┬AD SYNTAX ERROR ├├2┬
- ├┼0┼ ┬╠╦40 ╞IND COMMAND ├├30
- ├┼20 ┬╠╦60 ┼XECUTE COMMAND ├├42
- ├┼3┬ ┬├╘┴┬ .BYT ┴ ╞ ╥ ╫ ┼ ╨ ╬AMES OF BLOCK COMMANDS ├├5─
- -------------- ┬LOCK ╩UMP ╘ABLE -----------------------------------------
- ├┼42 ┬├╩═╨ $├┼─┴ ┬-┴ ├├63
- $├┼├─ ┬-╞
- $├╞2─ ┬-╥
- $├╞4┴ ┬-╫
- $├╞7┴ ┬-┼
- $├╞91 ┬-╨
- ├┼4─ ┬╠╦╨┴╥ ╨ARSE BLOCK PARAMETERS ├├6╞
- ├╞7├ ┴╙├╚┼╪ ├ONVERT ┴╙├╔╔ TO HEX AND STORE IN TABLE ├├┴1
- -------------- ╘ABLE ─ECIMAL ╓ALUES -------------------------------------
- ├┼├┴ ─┼├╘┴┬ .BYT 1 10 100 ├├╞2
- ├┼├─ ┬╠╦╞╥┼ ┬LOCK-╞REE (┬-╞) ├├╞5
- ├┼─┴ ┬╠╦┴╠├ ┬LOCK-┴LLOCATE (┬-┴) ├─03
- ├╞0─ ┬╠╦╥─2 ┬-╥ SUBROUTINE ├─36
- ├╞13 ╟┼╘╙╔═ ┬-╥ SUBROUTINE ├─3├
- ├╞19 ┬╠╦╥─3 ┬-╥ SUBROUTINE ├─42
- ├╞2─ ┬╠╦╥─ ┬LOCK-╥EAD (┬-╥) ├─56 ═
- ├╞36 ╒┬╠╦╥─ ╒SER DIRECT READ ├─5╞
- ├╞4┴ ┬╠╦╫╘ ┬LOCK-╫RITE (┬-╫) ├─73
- ├╞50 ╒┬╠╦╫╘ ╒SER DIRECT WRITE ├─97
- ├╞7┴ ┬╠╦┼╪├ ┬LOCK-┼XECUTE (┬-┼) ├─┴3 ═
- ├╞91 ┬╠╦╨╘╥ ┬LOCK-╨OINTER (┬-╨) ├─┬─
- ├╞┴6 ┬╒╞╘╙╘ ╘EST FOR ALLOCATED BUFFER RELATED TO SEC ADDR ├──2 ═
- ├╞├6 ┬╦╧╘╙╘ ╘EST BLOCK OPERATION PARAMETERS ├─╞2
- ├╞├9 ┬╠╦╘╙╘ ╘EST FOR LEGAL BLK & SET UP DRIVE, TR, SECT ├─╞5
- ├╞┼3 ─┬╠┬╒╞ ╙WITCH ACTIVE AND INACTIVE BUFFERS ├╞1┼ ═
- ─03─ ─┬╙┼╘ ╙ET UP FOR DOUBLE BUFFERING ├╞7┬
- ─04┴ ╘╟╠┬╒╞ ╘OGGLE INACTIVE AND ACTIVE BUFFERS ├╞8├
- ─059 ╨╔┬┘╘┼ ╨UT BYTE IN INTERNAL CHANNEL ├╞9┬
- ─060 ╨┬┬┘╘┼ " " " ├╞┴╞
- ─075 ╨╒╘ ═AIN ROUTINE TO WRITE TO A CHANNEL ├╞┬7
- ─0┴╞ ╨╒╘┬┘╘┼ ╨UT ACCUMULATOR INTO ACTIVE BUFFER OF LOGICAL ├╞╞1
- INDEX
- ─0├3 ╔╬╘─╥╓ ╔NITIALIZE DRIVE ─005 ╥
- ─0┼0 ╔╘╥╔┴╠ ╔NITIALIZE DRIVE NUMBER (─╥╓╬╒═) ─00┼
- ─12┼ ╬╞├┴╠├ ├OUNT NUMBER OF FREE BLOCKS ─075
- ─154 ╙╘╥╥─ ╙TART DBL BUFFERING; USE ╘,╙ AS STARTING BLK ─09┬
- ─17├ ╥─┬╒╞ ╙TART A READ JOB ON ╘,╙ (ENTRY POINT) ─0├3
- ─180 ╫╥╘┬╒╞ ╙TART A WRITE JOB ON ╘,╙ (ENTRY POINT) ─0├7
- ─182 ╙╘╥╘╔╘ ┴CTUAL JOB ROUTINE ─0├9
- ─1┴5 ╞╬─╥├╚ ╞IND READ CHANNEL ─0┼┬
- ─1├1 ╞╬─╫├╚ ╞IND WRITE CHANNEL ─107
- ─1─╞ ╘┘╨╞╔╠ ╟ET FILE TYPE ─125 ═
- ─1┼┴ ╟┼╘╨╥┼ ╙ET UP ╪,┘ FROM ACTIVE BUFFER NUMBER ─12╞
- ─1╞2 ╟┼╘┬┘╘ ╥EAD BYTE FROM ACT BUF; SET FLAG IF LAST DATA ─137
- ─211 ╥─┬┘╘ ╥EAD CHAR FROM FILE & READ NEXT BLK IF NEEDED ─156
- ─258 ╫╥╘┬╒╞ ╫RITE CHAR TO CHAN & WRITE BUF TO DISK IF FULL ─19─
- ─281 ╔╬├╨╬╘ ╔NCREMENT POINTER OF ACTIVE BUFFER BY ┴ ─1├6
- ─28┼ ╙┼╘─╥╓ ╙ET ─╥╓╬╒═ TO DRIVE INDICATED BY 1ST JOB OF BUF ─1─3
- ─29┴ ╟┼╘╫├╚ ╙ET UP BUFFER NUMBER & ALLOCATE LOGICAL INDEX ─1─╞
- ─29─ ╟┼╘╫├╚ ╫RITE ENTRY POINT ─1┼2
- ─29┼ ╟┼╘╥├╚ ╥EAD ENTRY POINT ─1┼3
- ─2┼2 ╞╥┼├╚╬ ╞REE CHANNEL ASSOCIATED WITH SEC ADDRESS; ─227 ═
- DON'T FREE CHANNEL #15
- ─313 ╥┼╠┬╒╞ ╥ELEASE BUFFERS ASSOCIATED WITH CHANNEL ─25┴
- ─349 ╟┼╘┬╒╞ ╟ET A FREE BUFFER ─28┼ ═
- ─38┴ ╞╥┼╔┴├ ╞REE INACTIVE BUFFER ─2─┴ ═
- ─3┬┴ ├╠─├╚╬ ├LEARED CHANNEL ─313
- ─3┼0 ╞╬─╠╬╪ ╞IND A FREE CHANNEL AND ALLOCATE IT ─37╞
- ─401 ╟┬┘╘┼ ╟ET NEXT CHARACTER FROM A CHANNEL ─39┬
- ║NX:TABLE 1.4
-